#pacman::p_load("impute", "pcaMethods", "globaltest", "GlobalAncova",
#                  "Rgraphviz", "preprocessCore", "genefilter", "SSPA",
#               "sva", "limma", "KEGGgraph", "siggenes","BiocParallel",
#               "MSnbase", "multtest","RBGL","edgeR","fgsea","devtools",
#               "crmn","httr")


#install.packages("C:/Users/Administrator/Desktop/Rlib/MetaboAnalystR/MetaboAnalystR_3.0.3.tar.gz")

#x1 <- runif(20)
#x2 <- runif(20)
#x3 <- runif(20)
#data <- data.frame(x1,x2,x3)
#
#PlotSPLS3DScore(data,inx3 = x3,inx2 = x2,inx3 = x3)

#a <- c("Rserve", "Cairo", "randomForest", "caTools", "e1071", "som", "RJSONIO", "ROCR", "pROC", "fitdistrplus", "lars", "caret", "gplots", "spls", "metap", "MSnbase", "entropy", "rsm")
#for(i in seq_along(a)){
# install.packages(as.character(a[i]))
#}

